home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
misc
/
zpoint_3_14.lha
/
zpoint-3.14
/
Rexx
/
ExecuteFKeys.zprx
< prev
next >
Wrap
Text File
|
1995-06-13
|
2KB
|
81 lines
/*
$VER: ExecuteFKeys.zprx V1.0 (25-May-95) Copyright (c) Nils Görs
Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man die
Belegung der Funktionstasten anzeigen lassen kann.
INSTALLATION:
Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
F10:SYS:Rexxc/RX ZPOINT:Rexx/ExecuteFKeys.zprx %s hinzu.
AUTOR DIESES SKRIPTS:
Nils Görs Tel. : +49 (0)202 784258
Kaiserstr. 97a EMail: N.Goers@Art-Line.Art-Line.de
42329 Wuppertal oder über das ZP-Support-Brett.
Verwenden Sie bitte nach Möglichkeit elektronische Post!
Das Skript benötigt Jürgen Kohrmeyers "rexxtricks.library"
*/
Fensterbreite = 600
OPTIONS RESULTS
/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort
IF zpPort == "" THEN
zpPort = "ZPoint"
ADDRESS VALUE zpPort
/* öffne alle nötigen libraries - wenn nicht möglich Programmende */
IF ~SHOW('LIBRARIES','rexxtricks.library') THEN
IF ~ADDLIB('rexxtricks.library',0,-30,0) THEN
EXIT
IF ~READFILE("dh1:bretter/fkeys.zp",zeile) THEN DO
REQUESTNOTIFY "FEHLER!"
EXIT
END
lv = 0
DO i = 0 TO zeile.0
Position = INDEX(zeile.i,'%')
IF Position ~= 0 THEN DO
String2 = DELSTR(zeile.i,Position,2)
zeile.i = INSERT(zpPort,String2,Position-1)
END
liste.lv = (zeile.i)
lv = lv + 1
END
liste.0 = lv-1
fenster.title = 'Bitte wählen'
fenster.gadgettext = 'S_tarten|_Abbrechen'
fenster.pubscreen = zpPort
fenster.width = fensterbreite
fenster.font = 'SCREEN'
fenster.sort = 'FALSE'
fenster.multiselect = 'FALSE'
IF VIEWLIST('liste','fenster','destvar') THEN DO
do i=0 to destvar.0
if pos(" ",destvar.i)>0 then destvar.i='"'destvar.i'"'
end
IF Destvar.gadget == 0 THEN EXIT
Command = COMPRESS(destvar.1,'"')
Position = INDEX(destvar.1,':')
String2 = DELSTR(destvar.1,1,Position)
Command = COMPRESS(String2,'"')
ADDRESS COMMAND command
end
/*EOS*/